u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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/ 
/ 
/ 

/ 
/ 
/ 
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/ 
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/ 
/ 
/ 
/ 
/ 
f 
f 
f 
f 
f 
/ 
/ 
/ 
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/ 
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PART 2 
USER MODUUES FOR SYSTEM EXERCISER 



.EJECT 



o 

o 
o 
o 
o 
o 
o 

O ! 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
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^ /DECTAPE-SYSTEM EXERCISER MODUUE- — -- 

/ 
Q /REV, DATE — 4/18/72 — CU 

/THIS IS AVAIUABUE IN OECTPI OR DECTPS (1400 OR 400 FOR BUFSI2) 

/ 
O .EBREU 



Q 000«7 R 340120 A 

00010 R m<dmZ A 2 /MASK FOR CHAIN MODE 

00011 R A .BLOCK 7 

00020 R %%mm A SYSERR 9 /SYSTEH ERROR FLAG 



U 
O 



0S024 R 000000 A 

00025 R mmm a m 

00026 R mmm a 

00027 R 000i?.(>i0 A 

O 00030 R 000000 A 

00031 R PI00000 A a 



O 

o 



o 

o 
o 
o 



00000 R 600004 A UUOSW 600004 /SYSTEM COMMUN, WORD 

O 0H001 R 000000 A /ADDITIONAL COMMON, WORDS, O 

00002 R mmm a 

00003 R 000000 a 

O 00004 R 001013 R ,DSA DSERV /SERVICE ENTRANCE O 

00005 R 0130530 R ,DSA DINIT /INITIALIZATION ENTRANCE, 

00006 R (340503 A .SIXBT "DECTAP" /TEST NAME, ****** CDECTPI OR DECTPS) 



O 

o 



00021 R 000000 A /WORD COUNT FUR ERROR WORDS _ 

00022 R 000000 A ERCQDE /ERROR CODE O 

00023 R 000000 A /ADDITIONAL ERROR DATA WORDS, 



o 



o 



/OPERATING PARAMETER STORAGE CELLS, O 
/ 

00032 R 000000 A CURHAN /CURRENT TRANSPORT NO, _ 

00033 R 000000 A BLKNUM /BLOCK NUMBER TO BE READ OR O 

00034 R 0000013 A BLOCK 

00035 R 000000 A DECWC 



o 
o 



O 00036 R r-100000 A HANCNT 

00037 R 000000 A RPWRT 

00040 R 000000 A NUMBLK /WRITTEN INTO, AND MAX. NO, BLKS, 

Q 00041 R 000000 A SVSTA 

00042 R 000000 A SVSTB 

Q 00043 R 000000 A DISTSW /DISTRIBUTION SWITCH IN DSERV, O 

00044 R 000000 A POLSW 

00045 R 000000 A ERRFLG 
Q 00046 R 000000 A RUNLEN 

00047 R 000000 A MOVERR /SECOND ERROR FLAG, 

00050 R 000000 A INWC 

O 000S1 R pif)0000 A INCA ^„ „-^,.,.- ^. .^ 

00052 R 000000 A APIFLG /API ACTIVE FLAG, 

/ 

O 00053 R 000000 A 

00054 R A SAVERR .BLOCK 10 /SECOND ERROR SAVE 

, EJECT 

o 
o 

o 



o 
o 
o 
o 
o 

o 



o 
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o 



U 



o 
o 



o 
o 

o 



m^m^i A BUFSIZ = 4000 /BUFFER LENGTH, ****** (1400 OR 400) 

«0i/)400 A BIKSIZ = 400 /BLOCK LENGTH. 



O g00010 A BUFBLK=BUFSlZ/400 

00&]44fe) A TSTRUN = 44a 

/ 

o / 



707572 A DTRB=707S72 /READ STATUS 8-REG. 

707601 A DTDF = 7i!!7601 /SKIP QN DEC TAPE FLAG, 



/ 

Q 00067 R 30003k5 A SYSWC 3M 

00070 R 000031 A SYSCA 31 

/ 

/TEMPORARY STORAGE CELLS, 

o '^ 

00071 R 000000 A TEMPI 

00072 R mmm a temps 

Q 00073 R mmm a temps 

0-^074 R 000000 a TEMP4 

00075 R 000000 A TEMP5 « 

Q 0sa076 R mmm a temps 

00077 R 300000 A TEMP7 



0^310? P ?00fcH!)@ A HANNUM umm 
00102 R 200000 A 2mm% 



00103 R 300000 A 300000 

Q 00104 R 400000 A 400000 

00105 R 500000 A 500000 

00106 R 600000 A 600000 
Q 00107 R 700000 A 700000 

/ 

/CURRENT BLOCK NUMBER TABLE 

o / 



.EJECT 



o 
o 
o 
o 
o 



00064 R 021400 A SEARCH 021400 /SEARCH COMMAND, 

00965 R 206413 R LAC7 LAC C7) 

O 00066 R 000004 A DELTA 4 

/ 

707541 A OTCA=707541 /CLEAR STATUS A-REG, 

O 707552 A DTRA = 707552 /Rt:AD STATUS A-REG, O 

707644 A DTXA = 707544 ^^fiRrxSjATUS ,A-;REG. 

707545 A DTLA=707545 /LOAD STATUS A-REG, 

707561 A DTEF=707561 /SKIP ON ERROR FLAG. O 



O 707764 A EBA=707/64 /ENABLE BANK MODE ADDRESSING O 

707702 A EEM = 707702 /TURN ON EXTEND MODE FOR PDP'-g 



o 
o 
o 
o 
o 



/ 

/TRANSPORT NUMBERS-'USED IN PREPARING COMMANDS, O 

/ 



o 
o 
o 
o 



00110 R A pKNUM .BLOCK 10 

O 00120 R A MAPSTR , BLOCK 400 O 

00520 R A ACTIVE .BLOCK 10 



O 
O 



( ) 



r"*^ 
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o 










/DECTAPE INITIA 

/ 

DINIT 


LIZATIDN R 


o 


00530 


R 


'^100000 


A 




>— -^ 


00531 


K 


707764 


A 


EBA 






00532 


K 


707702 


A 


EEM 




o 


00533 


R 


146362 


R 


D2M 


DSTSWl 




00534 


R 


200003 


R 


I AC 


UOOSW+3 




00535 


R 


506414 


R 


AND 


{■^77777} 


o 


00536 


R 


741200 


A 


SNA 






Bta537 


R 


600543 


R 


JMP 


. + 4 




00540 


R 


740001 


A 


CMA 




o 


00541 


R 


346415 


R 


TAD 


(1) 




00542 


R 


741000 


A 


SKP 






00543 


R 


777340 


A 


LAW 


-TSTRUN 


o 


00544 


R 


040046 


R 


DAC 


RUNLEN 




ea545 


R 


777777 


A 


LAW 


"1 




00546 


R 


046365 


R 


DAC 


FIRSTS 


o 


00547 


R 


200065 


R 


LAC 


LAC7 




«0550 
0M5bi 


^ 


042125 

200530 


i 


ME 


IWu 


o 


00552 


R 


041013 


R 


DAC 


DSERV 




00553 


R 


140047 


R 


DZM 


MOVERR 




Ki0554 


R 


140052 


R 


DZM 


APIFLG 


o 


00555 


R 


140020 


R 


DZM 


SYSERR 




00556 


R 


140021 


R 


DZM 


ERCQOE-1 




01^557 


R 


140045 


R 


DZM 


ERRFLG 


o 


00560 


R 


146361 


R 


DZM 


DONE« 




00561 


R 


102010 


R 


J MS 


RESBUF 




E 00562 


R 


777V)m 


A 


LAW 


"BUFSIZ/4 


o 


00563 


R 


046355 


R 


DAC 


DIN.l** 




00564 


R 


101772 


R 


JMS 


fJUFGEN 




00565 


R 


446355 


R 


ISZ 


DIN.l 


o 


00566 


R 


600564 


R 


JMP 


.-2 




00567 


R 


707341 


A 


DTCA 






00570 


R 


750000 


A 


CLA 




o 


00571 


R 


707545 


A 


DTLA 






00572 


R 


777771 


A 


LAW 


-7 




00573 


R 


046355 


R 


DAC 


DIN. If* 





00574 


R 


206415 


R 


LAC 


CI) 


^^■—X 


00575 


R 


040032 


R 


DAC 


CURHAN 




00576 


R 


206416 


R 


LAC 


C3) 


o 


00577 


R 


040033 


R 


DAC 


BLKNUM 


^••w' 


00600 


R 


206415 


R 


LAC 


CD 




00601 


R 


PS40040 


R 


DAC 


NUMBLK 


o 


00602 


R 


777^7^ 


A 


LAW 


-410 


v«^ 


00603 


R 


046356 


R 


DAC 


DIN,2# 




00604 


R 


206417 


R 


LAC 


CMAPSTR) 


o 


00605 


R 


046357 


R 


OAC 


DIN,3« 


N—^ 


00606 


R 


166357 


R 


DZM* 


DIN, 3 




00607 


R 


446357 


R 


ISZ 


DIN, 3 


o 


00610 


R 


446356 


R 


ISZ 


DIN, 2 




00611 


R 


800606 


R 


JMP 

.EJECT 


,-3 



/PRESET RUN COUNTER. 
/FOR PARITY ERROR 

/SET RETURN ADR. IN DESRV. 

/CLEAR SECOND ERROR FLAG. 
/CLEAR API FLAG, 

/CLEAR SYSTEM ERROR FLAG, 



/CLEAR A REG. 

/AND ALL FLAGS IN CONTROL. 
/SET-UP TO POLL HANDLERS. 

/PRESET HANDLER NQ, FIRST 
/BLOCK NUMBER TO 2 AND NO, 
/OF BLOCKS TO I FOR INITIAL 
/TRY ON EACH HANDLER, 



/CLEAR ALL MAPS TO ZERO 
/CI.E,, NONE WRITTEN^, INCLUDE 
/ACTIVE TABLE A3 WELL, 



u 



O 



O 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DECTAP SRC 






00612 


R 


140036 


R 


DZM 


HANCNT 


00613 


R 


206420 


R 


LAC 


CACTIVE+U 


00614 


R 


046356 


R 


DAC 


DIN. 2 


00615 


R 


206421 


R 


LAC 


CBKNUM+n 


00616 


R 


046360 


R 


DAC 


DIN.4# 


00617 


R 


206422 


R 


LAC 


(DINI,3J 


00620 


R 


046372 


R 


DAC 


P0LSW1« 


00621 


R 


040044 


R 


DAC 


POLSW 


00622 


R 


206423 


R 


LAC 


CFNDB.3+1) 


00623 


R 


046373 


R 


DAC 


P0LSW2» 


00624 


R 


mm^ 


A 


LAW 


-BLKSIZ 


00625 


R 


040035 


R 


DAC 


DECWC 


00626 


R 


750001 


A 


CLC 


• 


00627 


R 


040037 


R 

/ 
R DINI,2 


DAC 


RDWRT 


00630 


R 


10H13 


JMS 


PNDBLK 


00631 


R 


200032 


R 


LAC 


CURHAN 


00632 


R 


101705 


R 


JMS 


MPY32 


00633 


R 


346417 


R 


TAO 


CHAPSTRJ 


00634 


R 


046357 


R 


DAC 


DIN. 3 


00635 


R 


206424 


R 


LAC 


C40000) 


00636 


R 


066357 


R 


DAC* 


DIN. 3 


00637 


R 


440036 


R 


ISZ 


HANCNT 


00640 


R 


777777 


A 


LAW 


-1 


00641 


R 


066356 


R 


DAC* 


DIN, 2 


00642 


R 


206416 


R 


LAC 


C3) 


00643 


R 


066360 


R 


DAC* 
.EJECT 


DIN, 4 



/CLEAR HANDLER COUNTER. 
/SET UP TO MARK ACTIVE 
/HANDLERS AND SET POLLING 



/SWITCH, 



/SET INITIAL WORD COUNT, 



/FIND BLOCK, 

/IF RETURN HERE, HANDLER 

/QN LINE. SET BLOCK 1 
/AS WRITTEN IN, 

/MARK FOR MAP BLOCK 1, 

/INCREMENT HANDLER CNT, 
/SET THIS HANDLER ACTIVE, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 

o 
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DECTAF 


' SRC 


00644 


R 


200000 


R 


00645 


R 


506425 


R 


00646 


R 


741200 


A 


00647 


R 


600753 


R 


00650 


R 


200003 


R 


00651 


R 


506414 


R 


0(;)652 


R 


740001 


A 


00653 


R 


040046 


R 


00654 


R 


200000 


R 


00655 


R 


506426 


R 


00656 


R 


546427 


R 


00657 


R 


600753 


R 


00660 


R 


546430 


R 


00661 


R 


600670 


R 


00668 


R 


546431 


R 


00663 


R 


741000 


A 


00664 


R 


601115 


R 


00665 


R 


750001 


A 


00666 


R 


040037 


R 


00667 


R 


741000 


A 


00670 


R 


140037 


R 


00671 


R 


206432 


R 


00672 


R 


042125 


R 


00673 


R 


774000 


A 


00674 


R 


0464U 


R 


00675 


R 


206433 


R 


00676 


R 


046412 


R 


00677 


R 


200001 


R 


00700 


R 


066412 


R 


00701 


R 


446412 


R 


%m%^ 


^ 


&^%'fh% 


R 


00704 


R 


200002 


R 


00705 


R 


741100 


A 


00706 


R 


600714 


R 


%^7^7 


R 


741200 


A 


00710 


R 


600714 


R 


00711 


R 


346434 


R 


00712 


K 


741100 


A 


00713 


R 


600716 


R 



/ROUTINE FOR PARAMETER MODE 



RDTST 



LAC 

AND 
SNA 
JMP 
LAC 
AND 
CMA 
DAC 
LAC 
AND 
SAD 
JMP 
SAD 
JMP 
SAD 
SKP 
JMP 
CLC 
DAC 
SKP 
DZM 
LAC 
DAC 
LAW 
DAC 
LAC 
DAC 
LAC 

DAC* 
ISZ 

LAC 
SPA 

JMP 
SNA 
JMP 
TAD 
SPA 
JMP 
.EJECT 



UODSW 
(100000) 

DINI,3 

UODSW+3 

^77777 

RUNLEN 

UUDSW 

(300) 

(0) 

DINI,3 

(100) 

RDTST 

(200) 

TERMIN 
RDWRT 

RDWRT 

(JMP* 

ER07 

"BUFSIZ 

TST,1# 

(BUF) 

TST.2# 

uaoswti 

TST,2 

TST.2 

IS3.1 

UOOSW+2 

TSTl 



TSTl 
(-BUFSIZ-l) 

.+3 



/IS PARAMETER MODE CALLED FQR 



SUMEXT) 



/BEGIN READ TEST, 



/UODSH+2 FOR HEC LENGTH, 



o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

PAGE 

o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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DECTAf- 


SRC 






m7iA 


R 


206435 


R TSTl 


lAC 


CBUFsSlZ} 


00715 


R 


40002 


R 


DAC 


uaDaw+2 


00716 


R 


760001 


A 


cue 




^Id7i7 


R 


340002 


R 


TAD 


UOOSW+2 


00720 


R 


506436 


R 


ANQ 


(7400) 


00721 


R 


744000 


A 


CLU 




00722 


R 


742020 


A 


RTR 




00723 


R 


742020 


A 


RTR 




01^724 


R 


742020 


A 


RTR 




00725 


R 


742020 


A 


RTR 




00726 


R 


346415 


R 


TAD 


en 


idid7Z7 


R 


040040 


R 


DAC 


NUM8LK 


00730 


R 


750001 


A 


cue 




00731 


R 


340002 


R 


TAD 


UODSW+2 


00732 


R 


740001 


A 


CMA 




00733 


R 


040035 


R 


DAC 


DECWC 


00734 


R 


206416 


R 
R 


UAC 


f3) 


00735 


R 


040033 


DAC 


BLKNUM 


00736 


R 


101413 


R TST2 


JMS 


FNOBUK 


0«737 


R 


200033 


R 


LAC 


BUKNUH 


m7AB 


R 


340040 


R 


TAD 


NUMBLK 


00741 


R 


340066 


R 


TAO 


DELTA 


00742 


R 


040033 


R 


DAC 


BLKNUM 


00743 


R 


346437 


R 


TAD 


(-10733 


00744 


R 


741100 


A 


SPA 




00745 


R 


600750 


R 


JMP 


, + 3 


00746 


R 


306416 


R 


LAC 


(33 


00747 


R 


040033 


R 


OAC 


BLKNUM 


00750 


R 


440046 


R 


ISZ 


RUNLEN 


00751 


R 


600736 


R 


JMP 


TST2 


00752 


R 


601115 


R 


JHP 
.EJECT 


TERM IN 



o 
o 
o 
o 
o 
o 
o 
o 



O 0«737 R 200033 R LAC BLKNUM /PARA, TEST LOOP. O 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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PECTAF 


' SRC 








0(^753 


R 


707541 


A 


PIN1,3 


OTCA 




00734 


R 


206416 


R 




LAC 


(3) 


00755 


R 


040033 


R 




DAC 


BLKNUH 


60756 


R 


440032 


R 




ISZ 


CURHAN 


(30757 


R 


446356 


R 




ISZ 


DIN. 2 


m76& 


R 


446360 


R 




ISZ 


DIN, 4 


00761 


R 


446355 


R 




ISZ 


DIN.l 


00762 


R 


600630 


R 


/ 


JMP 


DINI.2 


00763 


R 


306440 


R 




LAC 


CDSER.8+1) 


00764 


R 


040044 


R 




DAC 


POLSW 


00765 


R 


206441 


R 




LAC 


CER03) 


00766 


R 


046372 


R 




DAC 


POLSWl 


00767 


R 


206442 


R 




LAC 


CER043 


^<d77B 


R 


046373 


R 




DAC 


PDLSW2 


00771 


R 


200036 


R 




LAC 


HANCNT 


00772 


R 


741200 


A 




SNA 




00773 


R 


602050 


R 




JMP 


ER01 


00774 


R 


740001 


A 




CMA 




00775 


R 


346415 


R 




TAD 


cu 


00776 


R 


046376 


R 




DAC 


SLN.l 


i^(6777 


R 


750000 


A 




CLA 




01000 


R 


340046 


R 




TAO 


RUNLEN 


01001 


R 


744000 


A 




CLL 




01002 


R 


446376 


R 




ISZ 


SLN,1 


01003 


R 


601000 


R 




JMP 


■ -"S 


01004 


R 


040046 


R 


/ 

DCTAPl 


DAC 


RUNLEN 


01005 


R 


101160 


R 


J MS 


SLNXHN 


01006 


R 


101255 


R 




JMS 


HAPSBR 


01007 


R 


101413 


R 




J MS 


FNDBLK 


01010 


R 


440046 


R 




ISZ 


RUNLEN 


01011 


R 


601005 


R 




JMP 


DCTAPl 


01012 


R 


601U5 


R 




JHP 
.EJECT 


TERMIN 



/CLEAR ALL FLAGS 



/INCREMENT PARAMETERS 
/FOR NEXT HANDLER, 



/RECYCLE, NOT DONE, 



/DONE, RESET POLLING SWITCH, 
/ERRROR 1— 'NO TRANSPORTS, 



/TEST LOOP - SELECT NEXT 
/HANDLER, THEN LOOK UP BLOCK 
/IN MAP, FIND BLOCK ON TAPE 
/AND PERFORM OPERATION, 
/CHECK FOR END OF PASS, 
/END - EXIT. 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 



u 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
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DECTAP SRC 








o 


























/SERVICE ENTRANCE TO DEC-1 


o 


01013 


R 


0PJ0000 


A 


DSERV 









01014 


R 


707764 


A 




Ef3A 






01015 


R 


7^7?&2 


A 




EEM 




o 


01016 


R 


046347 


R 




OAC 


ACSaVE^ 




01017 


R 


707552 


A 




DTRA 






01020 


R 


040041 


R 




DAC 


SVSTA 


o 


01021 


R 


707572 


A 




DTRB 






01022 


R 


040042 


R 




DAC 


SVSTB 




01023 


R 


200020 


R 




LAC 


SYSERR 


o 


01024 


R 


741200 


A 




SNA 






K1025 


R 


601054 


R 




JMP 


DSER.i 




01026 


R 


546443 


R 




SAD 


(-5) 


o 


01027 


R 


621013 


R 




JMP* 


DSERV 




01030 


R 


206444 


R 


l!5SER,4 


LAC 


(400000) 


o 


01031 


R 


7V3SS01 


A 




SPI 






01032 


R 


601043 


R 




JMP 


DSER.2 


o 


01033 


R 


777777 


A 




LAW 


-1 




01034 


R 


040052 


R 




DAC 


APIFLG 




0103S 


R 


707561 


A 




OTEF 




o 


01036 


R 


741000 


A 




SKP 






01037 


R 


601131 


R 




JMP 


DSER,6 




01040 


R 


707601 


A 




DTDF 




o 


01041 


R 


602076 


R 




JMP 


ER05 




01042 


R 


620043 


R 




JMP* 


DISTSW 


o 


01043 


R 


140052 


R 


0SER,2 


DZH 


APIFLG 


^*-^ 


01044 


R 


707561 


A 




DTEF 






01045 


R 


741000 


A 




SKP 




o 


01046 


R 


601131 


R 




JMP 


DSER.e 


^"--^ 


01047 


R 


707601 


A 




DTDF 






0l0b0 


R 


741000 


A 




SKP 




o 


01051 


R 


620043 


R 




JMP* 


DISTSW 




01052 


R 


750001 


A 




CLC 






01053 


R 


621013 


R 




JMP* 


DSERV 


o 










/ 








01054 


R 


p.m?)A7 


R 


OSER.i 


LAC 


MDVERR 




01055 


R 


740200 


A 




SZA 




o 


01056 


R 


601063 


R 




JMP 


DSER,5 


^•yw^ 


01057 


R 


206362 


R 




LAC 


DST5Wl« 




01060 


R 


740200 


A 




SZA 




o 


01061 


R 


602043 


R 




JMP 


BREAKl 




01062 


R 


601030 


R 




JMP 


DSER.4 




01063 


R 


200053 


R 


DSER.5 


LAC 


SAVERR-1 


o 


01064 


R 


346445 


R 




TAD 


C-U 




01065 


R 


«40071 


R 




DAC 


TEMPI 




01066 


R 


206446 


R 




LAC 


(SAVERR-n 


o 


01067 


R 


040072 


R 




OAC 


TeMP2 




01070 


R 


206447 


R 




LAC 


(ERCODE-U 





01071 


R 


040073 


R 


/ 


DAC 


TEMP3 


o 
















o 

















o 

JUTINE, ^ 

o 

/SAVE AC INCASE API ENTRY. Q 



/PREVIOUS ERROR FLAG HIGH, 
/NO, TRY MOVE ERROR, 

/CHECK API ON. 



/CHECK ON INTERRUPT, 
/ERROR INTERRUPT. 



/RESET API FLAG - API OFF, 
/CHECK ON INTERRUPT 

/ERROR INTERRUPT, 



o 
o 
o 
o 



/NOT ON, 

/ON, SET API FLAG, Q 



o 



/NEITHER, ERROR. Q 

/MAG, TAPE FLAG INTERRUPT, 



o 
o 



/MAG, TAPE FLAG INTERRUPT, Q 

/NEITHER - RETURN TO MONITOR, 

/CHECK MOVERR FOR ENTRY 

/NOT MOVERR - SERVICE INTER, Q 

o 

/IS MOVE ERROR - TRANSFER 

/DATA IN SAVERR TO ERCOOE. O 

O 
O 
O 

o 



o 
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DECTAF 


» SRC 








01072 


R 


220072 


R 


DSER,7 


LAC* 


TEMP2 




01073 


R 


060073 


R 




DAC* 


TEMP3 





01074 


R 


440072 


R 




ISZ 


TEMP2 


01075 


R 


440073 


R 




ISZ 


IE MP 3 




W1076 


R 


440071 


R 




ISZ 


TEMPI 





01077 


R 


601072 


R 




JMP 


DSER,7 




MH00 


R 


717711 


A 




LAW 


-1 




01101 


R 


040020 


R 




DAC 


SYSERR 


o 


01102 


R 


140047 


R 




DZM 


MOVERR 


^■w^ 


01103 


R 


622306 


R 


/ 

EXIT 


JMP* 


ENDPUT 


o 


01104 


R 


101772 


R 


JMS 


BUFGEN 




01105 


R 


200052 


R 




LAC 


APIFLG 




01106 


R 


740200 


A 




SZA 




o 


01107 


R 


60U12 


R 




JI^P 


. + 3 




01110 


R 


703344 


A 




06R 






01111 


R 


621013 


R 




JMP* 


DSERV 


o 


01112 


R 


206347 


R 




LAC 


ACSAVE 




01113 


R 


703344 


A 




DBR 






0U14 


R 


621013 


R 




JMP* 


DSERV 


o 










/ 








ilHi 


R 


200020 


\ 


TERMIN 


fe« 


SYSERR 


o 


01117 


R 


140021 


R 




DZM 


ERCODE-'l 




01120 


R 


206450 


R 




LAC 


(-43 




01121 


R 


(5140020 


R 




DAC 


SYSERR 


o 


01122 


R 


601104 


R 


DSER,8 


JMP 


EXIT 




01123 


R 


620044 


R 


JMP* 


PQLSW 


o 


01124 


R 


200042 


R 




LAC 


SVSTB 




0U25 


R 


506424 


R 




AND 


(40000) 




01126 


R 


741200 


A 




SNA 




o 


01127 


R 


60U50 


R 




JMP 


DSER,3 




01130 


R 


602056 


R 


/ 
DSER.e 


JMP 


ERB2 


o 


0U31 


R 


750000 


A 


CLA 






01132 


R 


707544 


A 




DTXA 






01133 


R 


200042 


R 




LAC 


SVSTB 


o 


01134 


R 


506451 


R 




AND 


(010000) 


■Sv-^ 


01135 


R 


741200 


A 




SNA 






0U36 


R 


68U42 


R 




JMP 


.+4 


o 


0U37 


R 


200003 


R 




LAC 


U00SWt3 




01140 


R 


74U00 


A 




SPA 






01141 


R 


601417 


R 




JMP 


FNDBLK+4 


o 


0U42 


R 


200042 


R 




LAC 


SVSTB 


■»— ^ 


0U43 


R 


506425 


R 




AND 


(100000) 




01144 


R 


741200 


A 




SNA 




o 


01145 


R 


601123 


R 




JMP 


DSER,8 


^*M^ 


01146 


R 


206452 


R 




LAC 


C60000) 




0U47 


R 


626373 


R 




JMP* 


PULSW2 



o 



o 
o 

o 



01150 R 200042 R 



DSER.3 LAC 



SVSTB 



/MORE DATA. 



/SET SYSERR AGAIN, CLEAR 
/MOVE ERROR FLAG, AND 
/EXIT THRU END PUT, 



/CHANGE DATA IN BUFFER, 
/EXIT - AFTER INITIATING 
/AN OPERATION - CHECK API 
/FLAG, 

/NOT ON - EXIT TO MONITOR, 
/ON - RESTORE AC, 

/EXIT, 



/GO TO EXIT, 

/FLAG ON. - POLLING SWITCH, 

/REGISTERS, ETC,, CHECK FOR 
/A SELECT ERROR, 
/NO, GO TO NEXT OP, 
/YES, FLAG AN ERROR 2, 



/CHECK FOR TIMING ERROR 

/CHECK TO SEE IF INHIBITED 
/YES, TRY AGAIN 



/GO TO NEXT OPERATION, 
/CHECK FOR PARITY ERROR, 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 

n 
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0US2 
0U53 
WU54 
0U55 
131156 
01157 



DECTAP SRC 



5(!)6453 

741200 
608067 
707552 
506453 
707544 
602067 



AND 

SNA 

J MP 

DTRA 

AND 

DTXA 

JMP 

.EJECT 



(.2mm) 



ER04 



(200003 



ER04 



/IF SO STOP TRANSPORT 

/UO TO ERROR 4, 
/PARITY ERROR 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
















o 
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DECTAP SRC 
















/SELECT 


NEXT 


HANDLER 


o 


?)U60 


R 


0000^0 


A 


SLN><HN 









0U61 


R 


200036 


R 




LAC 


HANCNT 




MU62 


R 


74)200 


A 




SNA 




o 


0U63 


R 


602050 


R 




JMP 


ER01 




0U64 


R 


101783 


R 




JMS 


RANGEN 




01165 


R 


506413 


R 




AND 


C7) 


o 


0U66 


R 


741200 


A 




SNA 






01167 


R 


601164 


R 




JMP 


3LNXHN+4 




01170 


R 


040032 


R 




DAC 


CURHAN 


o 


01171 


R 


346454 


R 




TAD 


(ACTIVE) 




011/2 


R 


046376 


R 




DAC 


SLN,1« 




0U73 


R 


226376 


R 




LAC* 


SLN.l 


o 


01174 


R 


741200 


A 




SNA 




^*-^ 


0U75 


R 


60U64 


R 




JMP 


SLNXHN+4 




01176 


R 


101723 


R 




JMS 


RANGEN 


o 


01177 


R 


506413 


R 




AND 


(7) 


•-^ 


01200 


R 


346415 


R 




TAO 


cn 




01201 


R 


740001 


A 




CMA 




o 


01202 


R 


346415 


R 




TAD 


(1) 


01203 


R 


046376 


R 




DAC 


SLN.l 




01204 


R 


77777^ 


A 




LAW 


-BUF8LK 


o 


01205 


R 


046377 


R 




DAC 


SLN,2<* 


01206 


R 


146400 


R 




DZM 


SLN,3S 




01207 


R 


446400 


R 




ISZ 


SLN,3 





01210 


R 


446376 


R 




ISZ 


SLN.l 




01211 


R 


741000 


A 




SKP 






01212 


R 


601215 


R 




JMP 


.+3 


o 


01213 


R 


446377 


R 




ISZ 


SLN,2 




01214 


R 


601207 


R 




JMP 


« "5 




01215 


R 


206400 


R 




LAC 


SLN.3 


o 


01216 


R 


040040 


R 




OAC 


NUMBLK 


^-^ 


01217 


R 


200032 


R 




LAC 


CURHAN 




01220 


R 


346465 


R 




TAD 


(BKNUM) 


o 


um ^ iii^^e 


g 




E«E. 


§ttl:l 




01223 


R 


040033 


R 




DAC 


BLKNUM 





01224 


R 


101723 


R 




JMS 


RANGEN 




01225 


R 


506413 


R 




AND 


i7) 




01226 


R 


346445 


R 




TAD 


(-13 


o 


01227 


R 


340033 


R 




TAD 


BLKNUM 


^■— -^ 


01230 


R 


040033 


R 




DAC 


BLKNUM 




01231 


R 


066376 


R 




DAC* 


SLN.l 


o 


01232 


R 


346456 


R 




TAD 


("3) 




01233 


R 


740100 


A 




SMA 






01234 


R 


601237 


R 




JMP 


.+3 


o 


01235 


R 


206416 


R 


SUNX.l 


LAC 


(3) 


^y—^ 


01236 


R 


601230 


R 




JMP 


. "•6 




01237 


R 


340040 


R 




TAD 


NUMBLK 


o 


01240 


R 


346457 


R 




TAD 


(-1070) 


s_^ 


01241 


R 


741100 


A 




SPA 






01242 


R 


62U60 


R 




JMP* 


SLNXHN 


o 
















o 
















o 

















/SELECTS, ON A RANDOM BASIS, 



/NEXT HANDLER FROM THOSE 
/AVAILABLE, BLKNUM OF NEXT 
/BLOCK TO BE READ OR WRITTEN 
/IN, AND MAX, NUMBER OF 
/HALF BLOCKS TO BE READ 
/OR WRITTEN, 



/HANDLER NOT AVAILABLE. 
/HANDLER AVAILABLE, GET 
/NUMBER OF BLOCKS, 



/GET BLOCK NUMBER TO START 



/CHECK THAT BLOCK NUM IS 
/BETWEEN 1 AND 1076. 
/IF OUTSIDE RANGE, FORCE 
/IT TO BLOCK 2, 



/EXIT. 



u 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



O 
O 
O 

o 
o 
o 
o 
o 
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DECTAP SRC 



01243 R 7501^01 A 

01244 R 340033 R 

01245 R 740001 A 

M1246 R 346460 R 
01247 R 040040 R 



01250 
012S1 

01252 
01253 

01254 



740 300 
621160 
2»6415 
040(340 
601235 



cue 

TAD 
CMA 

TAD 
DAC 

SHAiSZA 
JMP* 

LAC 
DAC 

JMP 
.EJECT 



BLKNUM 

(10733 

NUMBUK 

SUNXHN 

CD 

NUHiSLK 

SLNX,1 



o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 

u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 14 DECTAP SRC 

O 



o 
o 



o 
o 
o 
o 
o 



o 
o 



o 
o 

o 

o 



u 
o 

/HAP SUBROUTINE - ENTRY WITH CURHAN, BLKNUH, AND NUMBtK ALREADY SET, 

/ 

/FIND BUKNUM IN MAP - THEN DETERMINE IF PREVIOUSLY WRITTEN IN OR NOT, O 

/IF WRITTEN, READ UP TQ NUMBLK WRITTEN BLOCKS, IF NOT WRITTEN, 

/NRITE UP TO NUMBLK BLOCK WITHOUT OVERLAPPING PREVIOUS WRITE, 



O 01257 R 101705 R JHS MPYa2 /TEMP2 - MAP BIT POINTER 1, O 

/TEMP3 - MAP BIT POINTER 2. 

/TEMP4 - NUMBLK 

O 01262 R 750001 A CLC /TEMP5 - NUMBER OF BLOCKS O 

W ...„_ ... _... „ „.. „. ,. ^JQ g£ yggP Jl^ ^£J(y OPERATION, 

/lEMPe - END OF MAP. 

O (?I1265 R 040074 R DAC TEMP4 /RDWRT - FLG FOR READ OR WRITE O 

^ - -" - '-" --••"'- /AS NEXT OPERATION, 



01255 


R 


5100000 


A 


/ 

MAPSBR 







01256 


R 


200032 


R 




LAC 


CURHAN 


01257 


R 


101705 


R 




J MS 


MPY32 


01200 


R 


346417 


R 




TAD 


(MAPSTR) 


01261 


R 


040071 


R 




DAC 


TEMPI 


01262 


R 


750001 


A 




CLC 




01263 


R 


340040 


R 




TAD 


NUMBLK 


01264 


R 


740001 


A 




CMA 




01265 


R 


040074 


R 




DAC 


TEHP4 


01266 


R 


140075 


R 




DZM 


TEMPS 


01267 


R 


777777 


A 




LAW 


-1 


01270 


R 


040037 


R 




DAC 


RDWRT 


01271 


R 


200033 


R 




LAC 


BLKNUM 


01272 


R 


346461 


R 


MAPS, 2 


TAD 


C-22) 


01273 


R 


741100 


A 




SPA 




01274 


R 


601277 


R 




JMP 


MAPS,! 


01275 


R 


440071 


R 




ISZ 


TEMPI 


01276 


R 


601272 


R 


/ 

MAPS.l 


JMP 


MAPS, 2 


01277 


R 


346462 


R 


TAD 


C23J 


01300 


R 


740001 


A 




CMA 




01301 


R 


346415 


R 




TAD 


CD 


01302 


R 


040072 


R 




DAC 


TEMP2 


01303 


R 


7777b5 


A 




LAW 


"23 


01304 


R 


040073 


R 




DAC 


TEMP3 


01305 


R 


220071 


R 


/ 

MAPS, 4 


LAC* 


TEMPI 


01306 


R 


440073 


R 


ISZ 


TEMP3 


01307 


R 


440072 


R 




ISZ 


TEMP2 


01310 


R 


741000 


A 




SKP 




01311 


R 


601316 


R 




JMP 


MAPS. 3 


01312 


R 


745100 


A 




SPAiCLL 




01313 


R 


744002 


A 




STL 




01314 


R 


740010 


A 




RAL 




01315 


R 


601306 


R 




JMP 


MAPS, 4 


01316 


R 


740100 


A 


|5aPS,3 


SMA 




01317 


R 


601341 


R 




JMP 


MAPS, 9 


01320 


R 


140037 


R 


/ 


DZH 


RDWRT 


01321 


R 


440075 


R 


MAPS. 6 


ISZ 


TEMPS 


01322 


R 


740010 


A 




RAL 




01323 


R 


440074 


R 




ISZ 


TEMP4 


01324 


R 


741000 


A 




SKP 




01325 


R 


601373 


R 




JMP 


MAPS,S 


01326 


R 


440073 


R 




ISZ 


TEMP3 



/TEMP STORE,- — — 
/TEMPI - MAP WORD POINTER 



/FIND ENTRY WORD CONTAINING 
/THIS BLOCK NUMBER, 



/CHECK THAT NUMBLKS WILL 



( ) 1 



u 



u 

o 

O 

/FOUND WORD, SET REMAINDER O 

/+1 AND LOCATE BLOCK BIT 
/WITHIN WORD, 

O 



O 01305 R 220071 R LAC* TEMPI /SCAN FOR THIS BLOCKS BIT. O 

/ 

01306 R 440073 R MAPS, 4 ISZ TEMP3 

O 01307 R 440072 R ISZ TEMP2 /IN THIS MAP WORD, O 



O 

O 



/FOUND, CHECK FOR THIS BLOCK 
O 01317 R 601341 R JMP MAPS, 9 /ALREADY WRITTEN IN, O 

.._„^ .. ....,_. „ „-,. . /PREVIOUSLY WRITTEN, DO A READ, 

O 01321 R 440075 R MAPS. 6 ISZ TEMPS /INCREMENT BLOCKS O 



O 
O 

O 

o 



i .) 



o 
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01327 


R 


7410015 A 


o 


?I33l 


R mm g 




01332 


R 


601373 R 




01333 


R 


601321 R 





01334 


R 


777756 A 




01335 


R 


040073 R 




01336 


R 


440071 R 


o 


01337 


R 


220071 R 




01340 


R 


601331 R 




01341 


R 


440076 R 


o 


01342 


R 


744002 A 




01343 


R 


740010 A 




01344 


R 


440074 R 


o 


01345 


R 


741000 A 




01346 


R 


601363 R 




01347 


R 


440073 R 


o 


01350 


R 


741000 A 




01351 


R 


6013S5 R 




01352 


R 


7^1100 A 


o 


01353 


R 


601366 R 




01354 


R 


601341 R 




01355 


R 


060071 R 


o 


01356 


R 


777756 A 




01357 


R 


040073 R 




01360 


R 


440071 R 


o 


01361 


R 


220071 R 


V—J' 


01362 


R 


601352 R 





01363 


R 


440073 R 


vk^ 


01364 


R 


741000 A 




01365 


R 


691372 R 


o 


01366 


R 


745100 A 


^-^ 


01367 


R 


744002 A 




01370 


R 


740010 A 


o 


01371 


R 


601363 R 


o 


01372 


R 


060071 R 


01373 


R 


200075 R 




01374 


R 


040040 R 


o 


013/5 


R 


740001 A 


01376 


R 


346415 R 




01377 


R 


040075 R 


o 


0141^0 


R 


77777Vi A 




01401 


R 


346445 R 




01402 


R 


340040 R 


o 


01403 


R 


740100 A 




01404 


R 


740040 A 




01405 


R 


750000 A 


o 


01406 


R 


346463 R 




01407 


R 


440076 R 




01410 


R 


601406 R 


o 








o 








o 









MAPS14 



HAPS. a 



MAPS, 9 



MAPS12 



MAPSll 



/ 

MAPS, 7 



MAPS 13 



MAPS10 
/ 
MAPS. 5 



SKP 

m 

JMP 
JMP 
LAW 
QAC 

isz 

LAC* 

JMP 

ISZ 

STL 
RAL 
ISZ 

SKP 

JMP 
ISZ 

SKP 
J HP 
SPA 

JMP 

JHP 

OAC* 

LAW 

DAC 

ISZ 
LAC* 

JMP 

ISZ 
SKP 

JMP 

SPAiCLL 

STL 

RAL 

JMP 

DAC* 

LAC 
DAC 
CMA 
TAD 
DAC 
LAN 

TAD 

TAD 

SMA 
HLT 
CLA 
TAD 

ISZ 
JMP 



HAPS, a 

MAPS, 5 

MAPS. 6 

"22 

TEMPS 

TEMPI 

TEMPI 

MAPS14 
TEMPS 



TEMP4 

MAPS. 7 
TEMP3 

MAPSU 

MAPS13 

HAPS, 9 
TEMPI 
-22 
TEMP3 

TEMPI 
TEMPI 

MAPS12 

TEMP3 

MAPS10 



MAPS, 7 
TEMPI 

TEMPS 
NUMBLK 

CI) 

TEMPS 
-BUFBLK 

c-n 

NUMBLK 



C-BLKSIZ) 

TEHP5 
.-2 



/NOT aE EXCEEDED. 
/NOT ON EXIT, 



/END OF WORD, GET NEXT WORD. 

/GET NEXT WORD 

/CONTINUE, 

/INCRE, BLOCK AND CHECK 



/THAT NUMBLK NOT EXCEEDED. 



/WRITTEN AREA, DONE. 

/NOT END CONTINUE, 
/END, REPMACE THIS ENTRY 



/GET NEXT WORD, 



/RECTIFY REMAINDER OF 
/WORD 



/PUT IT AWAY 

/SAVE FINAL NUMBER OF 
/BLOCKS AND SET UP 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DECTAP SRC 



01411 R 040035 R 

01412 R 621255 R 



DAC DECWC 
4MP* MAP3BR 
.EJECT 



/SAVE THAT VALUE IN WC, 
/EXIT, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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DECTAP SRC 



01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
B1423 
01424 

01425 
01426 

01427 

01430 

01431 

01432 
01433 
01434 
01435 



R 
R 
R 
R 

R 
R 

R 
R 
R 
R 

R 
R 
R 
R 
R 

R 
R 
R 
R 



000000 
750001 
340033 
040033 
102016 
206464 
040051 
060070 
140050 
160067 

206465 
340032 
046366 
226366 

340064 

707545 
206466 
040043 
601104 



01436 R 101712 R 

01437 R 540033 R 

01440 R 601517 R 

01441 R 750001 A 

01442 R 340033 R 

01443 R 740001 A 

01444 R 340034 R 

01445 R 740100 A 

01446 R 601461 R 

01447 R 040050 R 

01450 R 060067 R 

01451 R 206467 R 

01452 R 707544 A 

01453 R 206470 R 

01454 R 040043 R 

01455 R 601104 R 

01456 R 206467 R 

01457 R 707544 A 

01460 R 601436 R 

01461 R 206471 R 

01462 R 707544 A 

01463 R 206472 R 

01464 R 040043 R 

01465 R 601104 R 

01466 R 101712 R 

01467 R 750001 A 
01470 R 340033 R 



/SEARCH RDUTINE, LOCATES TAPE 
/WRITE OR READ IN THE FORWARD 
/ 



WITH THIS BLOCK 
DIRECTION, 



NUMBER READY TO 



-NOBLK 



CLC 






TAD 


8LKNUM 




DAC 


BLKNUM 




JfiS 


HOLD 




LAC 


(BLOCK) 




DAC 


INCA 




DAC* 


SYSCA 




PZM 


INWC 




DZM* 


SYSWC 




LAC 


CHANNUM3 




TAO 


CURHAN 




DAC 


FND.l« 




LAC* 


FND.l 




TAD 


SEARCH 




OTLA 






LAC 


CFNDB.U 




DAC 


DISTSW 


I 


JHP 


EXIT 


f 

FN0B,1 


JMS 


CHKBLK 




SAD 


BLKNUM 




viMP 


FNDB,7 




CLC 






TAD 


BLKNUM 




CMA 






TAO 


BLOCK 




SMA 






J MP 


FNDB.3 




DAC 


INWC 




DAC* 


SYSWC 




LAC 


(0102005 




DTXA 






LAC 


CFNDB,2) 




DAC 


DISTSW 




JMP 


EXIT 


FNDB,2 


LAC 
DTXA 


(010200) 




JMP 


FNDB.l 


/ 

FN0B,3 


LAC 
DTXA 


(040200) 




LAC 


(FNDB,4) 




DAC 


DISTSW 




JMP 


EXIT 


FNDB,4 


JMS 
CLC 


CHKBLK 




TAD 


BLKNUM 



/SET 
/GET 



BLOCK 
BLOCK 



LOG IN 
NUMBER, 



CA TO 



/CLEAR WC 

/GET CURRENT TRANSPORT NO, 
/AND ASSEMBLE SEARCH COMMAND, 



/LOAD 

/SET SWITCH 

/AND EXIT, 



/CHECK CURRENT BLOCK AGAINST 
IT. 



/THIS IS 
/NOT IT. 
/CALCULATE 
/BLOCK AND 



DISTANCE TO 
DIRECTION, 



/REVERSE DIRECTION, 
/CONTINUE IN THIS DIRECTION, 
/SET WC AND CHANGE TO 
/CONTINUOUS MODE, 



/CHANGE TO NORMAL MODE, 



/REVERSE DIRECTION 



/CHECK POSITION GOING IN 
/REVERSE DIRECTION, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

Q 

o 



o 








o 
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DECTAP SRC 


01471 


R 


740001 A 




0H72 


R 


340034 R 


o 


01473 


R 


346473 R 




01474 


R 


740300 A 




01475 


R 


741000 A 


o 


01476 


R 


601515 R 




01477 


R 


740001 A 




01500 


R 


346415 R 


o 


01501 


R 


040050 R 


^^w^ 


01502 


R 


060067 R 




01503 


R 


206467 R 


o 


01504 


R 


707544 A 


^s-^ 


«1505 


R 


206474 R 




01506 


R 


0140043 R 


o 


01507 


R 


601104 R 




01510 


R 


206475 R 


o 


01511 


R 


707544 A 




01512 


R 


206466 R 




01513 


R 


040043 R 


o 


01514 


R 


60U04 R 




01515 


R 


206471 R 


o 


01516 


R 


6015U R 




01517 


R 


206431 R 


o 


01520 


R 


707544 A 




01521 


R 


200034 R 




01522 


R 


S40033 R 


o 


01523 


R 


741000 A 




01524 


R 


601417 R 




01525 


R 


440033 R 


o 


01526 


R 


200037 R 




01527 


R 


740200 A 




01530 


R 


101613 R 


o 


01531 


R 


707601 A 




01532 


R 


741000 A 




01533 


R 


601543 R 


o 


01534 


R 


707561 A 


VwX 


01535 


R 


601531 R 




01536 


R 


707552 A 


o 


01537 


R 


040041 R 


N-n-' 


01540 


R 


707572 A 




01541 


R 


040042 R 


o 


01542 


R 


601131 R 


Vv" 


01543 


R 


200034 R 




01544 


R 


540033 R 


o 


01546 


R 


741000 A 


^— ^ 


01546 


R 


601414 R 


o 


01547 


R 


200035 R 




01550 


R 


040050 R 




015S1 


R 


f/l6d^)67 R 


o 








o 


















FNDB,5 



FN0B.6 



FNDB.7 



FNDB.9 



CMA 




TAD 


BLOCK 


TAD 


C2) 


SZAISMA 




SKP 




JMP 


FNOB.e 


CMA 




TAD 


INWC 


DAC 


DAC* 


SYSWC 


lAC 


(010200) 


DTKA 




LAC 


CFND8.5) 


DAC 


DISTSW 


JHP 


EXIT 


LAC 


(050200) 


DTXA 




LAC 


(FNDB.l) 


DAC 


DISTSW 


JMP 


EXIT 


LAC 


(040200) 


JMP 


FNDB,5+1 


LAC 


(0002003 


DTXA 




LAC 


BLOCK 


SAD 


BLKNUM 


SKP 




JMP 


FNDBLK+4 


ISZ 


BLKNUM 


LAC 


RDWRT 


SZA 




JfiS 


SUMCHK 


DTOF 




SKP 




JMP 


FND8.9 


DTEF 




JMP 


,-4 


DTRA 




DAC 


SVSTA 


DTRB 




DAC 


SVSTB 


JMP 


DSER.e 


LAC 


BLOCK 


SAD 


BLKNUM 


SKP 




JMP 


FNDBLK+1 


f 




LAC 


OECWC 


DAC 


INWC 


DAC* 


SYSWC 



/GO FORWARD NOW 
/CONTINUE IN BACKWARD 

/MODE FOR DELTA BLOCKS 



/SET CONTINUOUS, 



/REVERSE DIRECTION AND SET 
/NORMAL NODE, 
/SET FORWARD LOOK 



/CHANGE TO FORWARD 



/SET WORD COUNT, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 19 



DECTAP SRC 



01552 


R 


346476 


R 


TAD 


C400U 


um § mhm k 


m 




01555 


R 


206477 


R 


LAC 


CBUF-l) 


01556 


R 


5^40051 


R 


DAC 


INCA 


01557 


R 


(?)60070 


R 


OAC* 


SYSCA 


01560 


R 


200037 


R 


LAC 


RDWRT 


01561 


R 


741200 


A 


SNA 




01562 


R 


601565 


R 


JMP 


,+3 


01563 


R 


206500 


R 


LAC 


C015200) 


01564 


R 


741000 


A 


SKP 




01565 


R 


206501 


R 


LAC 


C013200) 


01566 


R 


707544 


A 


OTXA 




01567 


R 


206502 


R 


LAC 


CFND8,8) 


01570 


R 


040M43 


R 


DAC 


DISTSW 


01571 


R 


60U05 


R 

/ 

A FN 


JMP 


exiT+1 


01572 


R 


707552 


D0,8 DTRA 




01573 


R 


506453 


R 


AND 


C20000J 


01574 


R 


707544 


A 


DTXA 




01575 


R 


750001 


A 


CLC 




01576 


R 


340050 


R 


TAD 


INWC 


01577 


R 


740001 


A 


CMA 




01600 


R 


340051 


R 


TAD 


INCA 


01601 


R 


740001 


A 


CMA 




01602 


R 


346415 


R 


TAD 


CD 


01603 


R 


360070 


R 


TAD* 


SYSCA 


01604 


R 


740200 


A 


SiiA 




01605 


R 


626372 


R 


JMP* 


POLSWl 


01606 


R 


200037 


R 


LAC 


ROWRT 


016137 


R 


741200 


A 


SNA 




01610 


R 


101676 


R 


JNS 


CHKSUM 


01611 


R 


140045 


R 


OZM 


ERHFLG 


01612 


R 


621413 


R 


JMP* 
.EJECT 


FNDBLK 



/AND BUFFER START, 



/READ OR WRITE, 



/READ, 
/WRITE, 



/CHANGE MODE AND PERFORM 
/FUNCTION, 



/WORD COUNT 



/UNEQUAL - FLAG ER03, 



/CLEAR ERROR FLAG 
/EXIT, 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



( ■) 



/•**N 
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DECTAP SRC 










o 










7SUHCHECK1NG SUBROUTINE, 





01613 


R 


000000 


A 


SUMCHK 









01614 


R 


206503 


R 






LAC 


CSUMC.U 




01615 


R 


046402 


R 






OAC 


auMswj* 


o 


01616 


R 


206504 


R 






LAC 


CSUMC.6) 




um ^ 


mm ^ 






m 


mm^ 


o 


01621 


R 


046401 


R 


SUMC 


,2 


DAC 


SUMEXT# 




01622 


R 


750001 


A 






CLC 






01623 


R 


340040 


R 






TAD 


NUMBLK 


o 


01624 


R 


740001 


A 






CM A 






01625 


R 


046404 


R 






DAC 


SUM.l** 




01626 


R 


206433 


R 






LAC 


ceuF) 


o 


01627 


R 


046405 


R 






DAC 


SUH,2** 




01630 


R 


7774im 


A 






LAW 


"376 




01631 


R 


046406 


R 






DAC 


SUM, 3^ 


o 


01632 


R 


200033 


R 






LAC 


BLKNUM 




01633 


R 


046407 


R 






DAC 


SUM,4#* 




01634 


R 


626403 


R 


SUMC, 


,'i 


JMP* 


SUMSWl 


o 


01635 


R 


066405 


R 


SUHC, 


.6 


DAC* 


SUM, 2 


s^ 


01636 


R 


446406 


R 






132 


SUM. 2 




01637 


R 


366405 


R 






TAD* 


SUM, 2 


o 


01640 


R 


44B406 


R 






ISZ 


SUM. 3 


^•w' 


01641 


R 


601636 


R 






JMP 


,"•3 




01642 


R 


626402 


R 






JHP* 


SUMSW 


o 


01643 


R 


446405 


R 


SUMC, 


.1 


ISZ 


SUM. 2 


^w.^ 


01644 


R 


066405 


R 






DAC* 


SUM, 2 




01645 


K 


446407 


R 


SUMC, 


,5 


ISZ 


SUM, 4 


o 


01646 


R 


446404 


R 






ISZ 


SUM.l 




01647 


R 


741000 


A 






SKP 






01650 


R 


626401 


R 






JMP* 


SUMEXT 


o 


01651 


R 


777402 


A 






LAW 


-376 


^•-.*' 


01652 


R 


046406 


R 






DAC 


SUM, 3 




01653 


R 


446405 


R 






ISZ 


SUM, 2 


o 


01634 


R 


P^GA'^? 


R 






LAC 


SUM, 4 


^-•—^ 


01655 


R 


601634 


R 






JMP 
.EJECT 


SUMC, 3 


o 


















o 


















o 


















o 


















o 


















o 


















o 


















o 



















/ENTRANCE FDR GEN. THE SUM CHECK, 



u 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 

o 
o 
o 
o 
o 
o 
o 

o 



o 
















o 
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DECTAF 


' SRC 








01656 


R 


446405 


R 


SUMC,4 


ISZ 


SUM. 2 




01657 


R 


740001 


A 




CM A 




o 


8166« 


R 


346415 


R 




TAD 


CD 




01661 


R 


366405 


R 




TAD* 


SUM, 2 




01662 


R 


046410 


R 




DAC 


3UH,5« 


o 


01663 


R 


740200 


A 




SZA 






01664 


R 


602125 


R 




JMP 


ER07 




01665 


R 


601645 


R 




JMP 


SUMC.S 


o 










/ 








01666 


R 


740001 


A 


SUMC,7 


CMA 






01667 


R 


346415 


R 




TAD 


CD 


o 


01670 


R 


366405 


R 




TAP* 


SUM, 2 




%\m 


% 


mm 


I 




m 


SUM, 5 


o 


01673 


R 


602125 


R 




JMP 


ER07 




01674 


R 


226405 


R 




LAC* 


SUM, 2 




01675 


R 


601636 


R 




JMP 


SUMC.6+1 


o 










/ 








01676 


R 


000000 


A 


CHKSUM 









01677 


R 


206505 


R 




UAC 


(SUMC,4 


o 


01700 


R 


046402 


R 




DAC 


SUMSW 


N-*' 


01701 


R 


206506 


R 




LAC 


CSUMC,7 




01702 


R 


046403 


R 




DAC 


SUMSWl 


o 


01703 


R 


201676 


R 




LAC 


CHKSUM 


^»— ' 


01704 


R 


601621 


R 




J HP 


SUMC,2 


o 










^MULTIPLY ROUTINE, 




01705 


R 


000000 


A 


MPY32 







o 


01706 


R 


744010 


A 




RCL 




01707 


R 


742010 


A 




RTU 






01710 


R 


742010 


A 




RTL 




o 


01711 


R 


621705 


R 


/ 

CHKBLK 


JMP* 


MPY32 




01712 


R 


300000 


A 







o 


01713 


R 


200034 


R 




LAC 


BLOCK 


01714 


R 


506507 


R 




AND 


ani) 


o 


01715 


R 


040034 


R 




DAC 


BLOCK 


01716 


R 


346510 


R 




TAD 


C-1102) 




01717 


R 


740100 


A 




SMA 




o 


01720 


R 


002100 


R 




JMP 


ER06 


01721 


R 


200034 


R 




LAC 


BLOCK 




01722 


R 


621712 


R 




JMP* 


CHKBLK 


o 












.EJECT 




o 
















o 
















o 
















o 

















o 



O 1 

I 

O : 
O I 

I 

o , 

o i 
o ^ 

I 

o ^ 

I 

O 1 
I 

o ' 

I 

O j 

I 

o 
o ■ 
o ' 

o 

Q 

o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 
01735 
M1736 
01737 

01740 
01741 
01742 
01743 
01744 

01745 
01746 
01747 

01750 

01751 
01752 
01753 
01754 
01755 
01756 
01757 

01760 
01761 
01762 
01763 
01764 

01765 
01766 
01767 

01770 
01771 



DECTAP SRC 



R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 
R 

R 

R 
R 
R 
R 

R 
R 
R 
R 

R 
R 
R 

R 
R 
R 
R 

R 
R 
R 
R 
R 
R 
R 
R 
R 
R 



t1000B0 

201761 
346511 

74U00 
601737 
206512 
041761 
201760 
745100 
744002 
740010 
041760 
221761 

341760 
061761 
441757 
601750 
366427 

061761 

77nm 

041757 
201756 

740020 
361761 
041756 

44J.761 
621723 

000000 

mim 

123456 
001772 
654321 
361416 
055363 
546060 
243035 
762572 
453237 
150214 



A 
R 
R 
A 
R 
R 
R 
R 
A 
A 
A 
R 
R 

R 

R 
R 
R 

R 

R 
A 
R 
R 

A 
R 
R 
R 
R 
A 
A 

A 
R 
A 
A 
A 

A 
A 
A 
A 
A 



/RANDOM 

f 

RANGEN 



NUMBER GENERATOR ROUTINE 



/ 

RANTAD 



RANSAV 

RANCNT 

f 

RANCQN 

RANDEX 

RANTBL 





LAC 

TAD 

SPA 
JMP 
LAC 
OAC 
LAC 
SPA 
STL 
RAL 
DAC 
LAC 



TAD 

DAC* 
ISZ 
JMP 
TAO* 

DAC* 
LAW 
DAC 
LAC 

RAR 

TAD* 

DAC 

ISZ 
JMP* 

™30 



iCLL 



RANPEX 
C-RANTaL-l0) 

RANTAO-1 
(RANTBL3 
RANPEX 
RANCON 



RANCDN 
RANDEX 

RANCON 

RANDEX 
RANCNT 
, + 5 
C0) 

RANDEX 
^30 

RANCNT 
RANSAV 

RANPEX 
RANSAV 
RANDEX 
RANGEN 



123456 

RANTBL+10 

654321 

361416 

055363 

546060 

243035 

762572 

453237 

150214 

.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



i ) 
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DECTAP SRC 








o 










/BUFFER 
/ 

BUFGEN 


RANDOM 


DATA GEN 


o 


&1772 


K 


000MtJ0 


A 









f}l77'i 


R 


77777A 


A 




LAW 


-4 




01774 


R 


046351 


R 




DAC 


BUF.lff 


o 


01775 


K 


101723 


R 


BUFG.l 


JMS 


RAN6EN 




01776 


R 


741200 


A 




SNA 






%\777 


R 


601775 


R 




JMP 


BUFG.l 


o 


02000 


R 


066352 


R 




DAC* 


BUF.2# 




02001 


R 


446352 


R 




ISZ 


BUF.2 




02002 


R 


446353 


R 




ISZ 


BUF,3« 


o 


02ia«3 


R 


741000 


A 




SKP 






02004 


R 


102010 


R 




JMS 


RESBUF 




02005 


R 


446351 


R 




ISZ 


BUF.l 


o 


0201(36 


R 


601775 


R 




JMP 


BUFG.l 




02007 


R 


621772 


R 


/ 

RESBUF 


JMP* 


BUFGEN 


o 


02010 


R 


000000 


A 









020U 


R 


774000 


A 




LAW 


-BUFSIZ 




02012 


R 


046353 


R 




DAC 


BUF,3 


o 


02013 


R 


206433 


R 




LAC 


CBUFJ 




02014 


R 


046352 


R 




DAC 


BUF,2 




02015 


R 


622010 


R 




JMP* 


RESBUF 


o 










/ 








02016 


R 


000000 


A 


HOLD 









02017 


R 


750004 


A 




LAS 




o 


02020 


R 


506473 


R 




AND 


C2) 




02021 


R 


741200 


A 




SNA 






02022 


R 


622016 


R 




JHP* 


HOLD 


o 


02023 


R 


102025 


R 




JMS 


BREAK 




02024 


R 


602017 


R 


/ 
BREAK 


JMP 


,-5 


o 


02025 


R 


000000 


A 









02026 


R 


046350 


R 




DAC 


BRKAC« 




02027 


R 


750010 


A 




GLK 




o 


02030 


R 


046367 


R 




DAC 


LINKS 




02031 


R 


200020 


R 




LAC 


SYSERR 




02032 


R 


741200 


A 




SNA 




o 


02033 


R 


602036 


R 




JMP 


.+3 




02034 


R 


777776 


A 




LAW 


"2 




02035 


R 


602037 


R 




JMP 


.+2 


o 


02036 


R 


77777^ 


A 




LAW 


-5 




02037 


R 


040020 


R 




DAC 


SYSERR 




02040 


R 


777777 


A 




LAW 


"1 


o 


02041 


R 


046362 


R 




DAC 


DSTSWl 




02042 


R 


60 1105 


R 


/ 

BREAKl 


JMP 


EXIT+1 


o 


02043 


R 


146362 


R 


DZM 


DSTSWl 




02044 


R 


206367 


R 




LAC 


LINK 




02045 


R 


740020 


A 




RAR 




o 


02046 


R 


206350 


R 




LAC 


BRKAC 




02047 


R 


622025 


R 




JMP* 
.EJECT 


BREAK 


o 
















o 
















o 

















o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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02050 
02051 
02052 
02033 
02054 



DECTAP SRC 



2ii!t6415 
102262 
777777 

PI46361 
102306 



EKai 



02055 R 60Ui5 R 



02036 R 


206473 R 


02057 R 


102146 R 


02060 R 


602242 R 


02061 R 


707552 A 


02062 R 


506453 R 


02063 R 


707544 A 


02064 R 


206416 R 


02065 R 


102146 R 


02066 R 


602216 R 


M2067 R 
03070 R 


imti I 


02071 R 


740200 A 



02072 
02073 
02074 
02075 

02076 
%2%77 

02100 
02101 



R 

R 

R 
R 

R 
R 

R 
R 



602102 
206513 
102146 

602216 

206514 
602051 

206515 
602074 



ER02 



/ 

ER03 



/ 

ER04 



/ 

ER05 



eR06 



UAC 
JUS 
LAW 
DAC 
JMS 

JMP 

UAC 

JMS 
JMP 

DTRA 

AND 

DTXA 

UAC 

JMS 

JMP 

SZA 

JMP 

LAC 
JMS 
JMP 

UAC 

JMP 



cn 

RESPUT 
-1 

DONE 
EHDPUT 

TERHIN 

C2) 

ERPUT 
DELHAN 



(20000) 

C3) 

ERPUT 
CHKFLG 



PARERR 

(4) 

ERPUT 
CHKFLG 

C5) 
ER01+1 



/ERROR 1 - - NO MORE HANDLERS 
/AVAILABLE. 



/SELECT ERROR - DELETE 
/HANDLER 



/WORD COUNT « CURRENT ADDRESS 



/ERROR AFTER OPERATION. 



/PARITY ERROR 

/OTHER STATUS B ERRORS, 



/API FLAG ERROR, 



LAC C6) 
JMP ."5 
, EJECT 



u 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



a 








o 
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02102 


R 


446365 R 




02103 


R 


602123 R 


o 


02104 


R 


mm A 




%'im ^ 


n^m R 


o 


02107 


R 


101413 R 




02110 


R 


446370 R 


o 


02111 


R 


602107 R 




02112 


R 


mm A 




02113 


R 


046365 R 


o 


02114 


R 


206371 R 




02115 


R 


744020 A 




02116 


R 


740020 A 


o 


02117 


R 


742020 A 




02120 


R 


246516 R 




02121 


R 


102146 R 


o 


02122 


R 


601010 R 




02123 


R 


445371 R 


o 


02124 


R 


602110 R 




02125 


R 


206413 R 


o 


02126 


R 


102262 R 




02127 


R 


200041 R 




02130 


R 


102301 R 


o 


02131 


R 


200034 R 




02132 


R 


102301 R 




02133 


R 


200040 R 


o 


02134 


R 


102301 R 




02135 


R 


750001 A 




02136 


R 


346433 R 


o 


02137 


R 


740001 A 




02140 


R 


346405 R 




K2141 


R 


102301 R 


o 


P)2142 


R 


206410 R 




02143 


R 


102301 R 




K2144 


R 


102306 R 


o 


02145 


R 


602216 R 


o 








o 








o 








o 


























o 









PARERR 



PARER2 



PARERl 
ER07 



ISZ 


FIRST 


J MP 


PARERl 


LAH 


"5 


B^R 


PARfyfs 


JMS 


FN08LK 


/ 




ISZ 


PARCNT 


JMP 


,-2 


LAH 


-1 


DAC 


FIRST 


LAC 


PARTOT 


RCR 




RAR 




RTR 




XOR 


C10) 


JMS 


ERPUT 


JMP 


OCTAPl+3 


/ 




ISZ 


PARTOT 


JMP 


PARER2 


/ 




LAC 


C7) 


JMS 


RESPUT 


LAC 


SVSTA 


JMS 


PUT 


LAC 


BLOCK 


JMS 


PUT 


LAC 


NUM8LK 


JMS 


PUT 


CLC 




TAD 


CBUF) 


CHA 




TAD 


SUM, 2 


JMS 


PUT 


LAC 


SUM, 5 


JMS 


PUT 


JMS 


ENDPUT 


JMP 


CHKFLG 



.EJECT 



u 
o 
o 

/UO IT AGAIN ^ 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



I 

o I 

o I 
o I 
o 
o 
o 



o 
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DECTAF 


' SRC 






o 


02146 


R 


000006) 


A ERPUT 









02147 


R 


102262 


R 


JHS 


RESPUT 


o 


02190 


R 


200041 


R 


LAC 


SVSTA 


^-•w' 


02151 


R 


102301 


R 


JMS 


PUT 




02152 


R 


200042 


R 


LAC 


SVSTB 


o 


02153 


R 


102301 


R 


JMS 


PUT 




02154 


R 


206363 


R 


LAC 


ERN.l*^ 




02155 


R 


546515 


R 


SAD 


C6) 


o 


02156 


R 


741000 


A 


SKP 






02157 


R 


602163 


R 


JMP 


. + 4 




02160 


R 


200034 


R ERPU,2 


UAC 


BLOCK 


o 


02161 


R 


102301 


R 


JMS 


PUT 




02162 


R 


602214 


R 


JMP 


ERPUa 




02163 


R 


200042 


R 


LAC 


SVSTB 


o 


02164 


R 


506424 


R 


AND 


C400003 




02165 


R 


740200 


A 


SZA 






02166 


R 


602214 


R 


JMP 


ERPU.l 


o 


02167 


R 


200050 


R 


LAC 


INWC 




02170 


R 


102301 


R 


JMS 


PUT 




02171 


R 


220067 


R 


LAC* 


SYSWC 


o 


02172 


R 


102301 


R 


JMS 


PUT 




02173 


R 


200051 


R 


LAC 


INCA 




02174 


R 


102301 


R 


JMS 


PUT 


o 


02175 


R 


220070 


R 


LAC* 


SYSCA 




02176 


R 


046364 


R 


DAC 


ERP.l?* 




02177 


R 


102301 


R 


JMS 


PUT 


o 


02200 


R 


206363 


R 


LAC 


ERN,1 




02201 


R 


546513 


R 


SAD 


C4) 




02202 


R 


602160 


R 


JMP 


ERPU.2 


o 


02203 


R 


206363 


R 


LAC 


ERN.l 




02204 


R 


546416 


R 


SAD 


C3) 




02205 


R 


602214 


R 


JMP 


ERPU,1 


o 


02206 


R 


200041 


R 


LAC 


SVSTA 


^»-^ 


02207 


R 


506517 


R 


AND 


CI 000 3 




02210 


R 


741200 


A 


SNA 




o 


02211 


R 


602214 


R 


JMP 


,+3 




02212 


R 


226364 


R 


LAC* 


ERP.l 




02213 


R 


102301 


R 


JMS 


PUT 


o 


02214 


R 


102306 


R ERPU.l 


JMS 


ENOPUT 




02215 


R 


622146 


R 


JMP* 
.EJECT 


ERPUT 


o 














o 














o 














o 














o 














o 














o 















/PUT AWAY ERRPR PARAMETERS 
/FOR MONITOR AFTER ERROR, 



/STATUS B REG. 



/8EGINNING WORD COUNT, 
/ENDING WORD COUNT. 

/BEGINNING CURRENT ADDRESS, 
/ENDING CURRENT ADDRESS, 



/FIRST WORD PUTAWAY BY TRANS, 
/CLOSE ERROR FILE, 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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02216 


R 


2«0C^45 


R 


02217 


R 


7 40200 


A 


0222M 


R 


602242 


R 


02221 


R 


mm 


A 


02222 


R 


040045 


R 


02223 


R 


200042 


R 


02224 


R 


S06423 


R 


02225 


R 


741200 


A 


02226 


R 


601417 


R 


02227 


R 


200043 


R 


022^0 


R 


546466 


R 


02231 


R 


741000 


A 


02232 


R 


602235 


R 


02233 


R 


206452 


R 


02234 


R 


601462 


R 



02235 R 546470 R 

02236 R 741000 A 

02237 R 601417 R 

02240 R 206520 R 

02241 R 601462 R 

02243 H ;i46454 R 

02244 R 046354 R 

02245 R 166354 R 

02246 R 140045 R 

02247 R 750001 A 
02250 R 340036 R 

02231 R 040036 R 

02252 R 741100 A 

02253 R 602256 R 

02254 R 740200 A 

02255 R 601005 R 

02256 R 707552 A 

02257 R 506453 R 

02260 R 707544 A 

02261 R 602050 R 



CMKFLG LAC 


ERRFLG 


SZA 




JCIP 


DELHAN 


LAW 


^1 


DAC 


ERRFLG 


UAC 


SVSTa 


AND 


(100008) 


SNA 




JMP 


FN08LK+4 


UAC 


DISTSW 


SAD 


(FNDB»n 


SKP 




JMP 


,+3 


L.AC 


(60000) 


JMP 


FNDB.3+1 


SAD 


(FND8.2) 


SKP 




JMP 


FNOBLK+4 


LAC 


(70000) 


JMP 
/ 
DELNAN lj,Jig 


FNOB.3+1 


wm'^t, 


DAC 


DEL, If* 


DZM* 


DEL.l 


DZM 


ERRFLG 


CLC 




TAD 


HANCNT 


DAC 


HANCNT 


SPA 




JMP 


.+3 


SZA 




JMP 


DCTAPl 


DTRA 




AND 


(20000) 


DTXA 




JMP 


ER01 


.EJECT 





/CHECK DOUBLE ERROR FLAG 

/FOR THIS TRANSPORT. 

/ON - DELETE HIM. 

/OFF - TRY THE OPERATION AGAIN, 



;pibrfHE"iR6liP!!"^ "''^"'■^ 



/DECREMENT ON LINE 
/HANDLER COUNT AND IF 
/ZERO, FLAG AN ERROR 1. 



/IF NOT, SELECT ANOTHER, 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 














o 
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02262 


R 


000000 


A • 




02263 


R 


046363 


R 


o 


02264 


R 


200020 


R 




02265 


R 


740200 


A 




02266 


H 


602273 


R 


o 


02267 


R 


206363 


R 




02270 


R 


040022 


R 




02271 


R 


206521 


R 


o 


02272 


R 


602276 


R 




02273 


R 


206363 


R 




02274 


R 


040054 


R 


o 


02275 


R 


J?06522 


R 




02276 


R 


046374 


R 




02277 


R 


146375 


R 


o 


02300 


R 


622262 


R 




02301 


R 


000000 


A 




02302 


R 


066374 


R 


o 


02303 


R 


446374 


R 




02304 


R 


446375 


R 




02305 


R 


622301 


R 


o 


02306 


R 


000000 


A 




02307 


R 


446375 


R 




02310 


R 


200020 


R 


o 


02311 


R 


740200 


A 




02312 


R 


602332 


R 




02313 


R 


206375 


R 


o 


02314 


R 


740001 


A 




02315 


R 


346415 


R 




02316 


R 


040021 


R 


o 


02317 


R 


740100 


A 




02320 


R 


740040 


A 




02321 


R 


206361 


R 


o 


02322 


R 


741200 


A 




02323 


R 


602327 


R 




02324 


R 


77777A 


A 


o 


02325 


R 


040020 


R 


x.^ 


02326 


R 


601104 


R 




02327 


R 


777777 


A 


o 


02330 


R 


<^A{A^2.d 


R 


\l— ' 


02331 


R 


622306 


R 




02332 


R 


206375 


R 


o 


02333 


R 


740001 


A 


^w^ 


02334 


R 


346415 


R 




02335 


R 


040053 


R 


o 


02336 


R 


777777 


A 


^"-—^ 


02337 


R 


040047 


R 




02340 


R 


206623 


R 


o 


02341 


R 


040020 


R 




02342 


R 


707552 


A 




02343 


R 


506453 


R 


o 


02344 


R 


707544 


A 




02345 


R 


601104 


R 


o 










o 










o 











RESPUT 



PUTS.l 



PUTS. 2 



PUT 



ENDPUT 



PUTS, 3 








DAC 


ERN.lw 


UAC 


SYSERR 


SZA 




JMP 


PUTS.l 


UAC 


ERN.l 


DAC 


ERCOOe 


LAC 


CERCODE+n 


JHP 


PUTS. 2 


UAC 


ERN.l 


DAC 


SAVERR 


LAC 


CSAVERRtU 


DAC 


PUT, IS 


DZM 


PUT, 2** 


JMP* 


RESPUT 







DAC* 


PUT, I 


ISZ 


PUT. I 


isz 


PUT. 2 


JMP* 


PUT 







ISZ 


PUT, 2 


LAC 


SYSERR 


SZA 




JMP 


PUTS, 3 


UAC 


PUT, 2 


CMA 




TAO 


cn 


DAC 


ERCODE-l 


SMA 




HUT 




UAC 


DUNE 


SNA 




JMP 


,+4 


UAW 


-4 


DAC 


SYSERR 


JMP 


EXIT 


LAW 


-I 


DAC 


SYSERR 


JMP* 


ENQPUT 


UAC 


PUT. 2 


CMA 




TAD 


CI) 


DAC 


SAVERR^l 


UAW 


-1 


DAC 


MOVERR 


UAC 


(•"2D 


DAC 


SYSERR 


DTRA 




AND 


(20000) 


DTXA 




JMP 


EXIT 



/RESET ERROR PUTAWAY ROUTINES. 

/SAVE ERROR NUMBER 

/CHECK FOR PREVIOUS ERROR, 

/YES, SAVE THIS ONE. 

/NO, SET UP ERROR IN OUTPUT 

/BUFFER 



/IN SAVE AREA, 



/ITEM PUTAWAY ROUTINE, 
/SET UP BY RESPUT, 



/CUOSE ERROR OUTPUT 

/CHECK FOR SECOND ERROR, 

/YES 

/NO, PUTAWAY NUMBER OF 
/PARAMETERS, 



/EXIT. 

/PUT NUMBER OF PARAMETERS 

/IN SAVE AREA, 



/SET MOVE ERROR FLAG, 



/EXIT WITHOUT I/O START 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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02346 R A BUF 



.SUaCK BUFSIZ+1 
.EJECT 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
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o 






000000 


R 






&QAXZ 


R 


000007 


A 


*L 


o 


ddAlA 


H 


377777 


A 


♦ L 




06415 


R 


000001 


A 


*l 




06416 


R 


000003 


A 


*U 


o 


06417 


R 


000120 


R 


*L 




0642W 


R 


000581 


R 


*L 




06421 


R 


000111 


R 


*l 


o 


06422 


R 


000753 


R 


♦ U 




06423 


R 


001462 


R 


*u 




06424 


R 


040000 


A 


*L 


o 


06425 


R 


100000 


A 


*l. 




06426 


R 


000300 


A 


*L 




06427 


R 


000000 


A 


*l 


o 


06430 


R 


000100 


A 


*L 




06431 


R 


000200 


A 


*L 




06432 


R 


626401 


R 


*U 


o 


06433 


R 


002346 


R 


*L 




06434 


R 


77^777 


A 


*L 




0643S 


R 


004000 


A 


*l. 


o 


06436 


R 


007400 


A 


*U 


06437 


R 


77e7iiS> 


A 


*l 




06440 


R 


001124 


R 


*U 





06441 


R 


002061 


R 


*L 


^^r^ 


06442 


R 


002067 


R 


*L 




06443 


R 


77777Z 


A 


*U 


o 


06444 


R 


400000 


A 


*l. 




06445 


R 


777777 


A 


*L 




06446 


R 


000053 


R 


*L 


o 


06447 


R 


000021 


R 


*L 




06450 


R 


77777A 


A 


*L 




06451 


R 


010000 


A 


*L 


o 


06452 


R 


060000 


A 


*U 




06453 


R 


020000 


A 


*L 




06454 


R 


000520 


R 


*l 


o 


06455 


R 


000U0 


R 


♦I, 




06456 


R 


77777'6 


A 


*U 


o 


06457 


R 


776710 


A 


*l 


06460 


R 


0101073 


A 


*u 




06461 


R 


777756 


A 


*L 


o 


06462 


R 


000023 


A 


*L 




06463 


R 


777400 


A 


*L 




06464 


R 


000034 


R 


*L 


o 


06465 


R 


000100 


R 


*U 




06466 


R 


001436 


R 


*U 




06467 


R 


010200 


A 


*l. 


o 


06470 


R 


001456 


R 


*L 




06471 


R 


040200 


A 


*l 




06472 


R 


001466 


R 


*L 


o 


06473 


R 


000002 


A 


*L 




06474 


R 


001510 


R 


*U 




06475 


R 


050200 


A 


*l 


o 


06476 


R 


004001 


A 


*L 


o 












o 













,ENO 



UODSW 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 
o 
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06477 R 002345 R *U 

06500 R 015200 A *L 

06501 R 013200 A *l 




06502 R 001572 

06503 R 001643 


R 
R 




o 


06504 R 001635 

06505 R 001656 


R 
R 




o 


06506 R 001666 

06507 R mmi 

06510 R 776676 


R 
A 
A 




o 


06511 R 776006 

06512 R 001762 

06513 R 000004 


R 
R 
A 




o 
o 
o 


06514 R 000005 A *U 

06515 R 000006 A *L 

06516 R 000010 A *U 

06517 R 001000 A *U 

06520 R 070000 A *U 

06521 R 000023 R *!, 

06522 R 000055 R *L 

06523 R 77777% A *L 

SIZE506531 


o 








o 








o 








o 








o 








o 








o 








o 








o 








o 








o 

















o 









1 ERROR UINES 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 





PAGE 32 DECTAP SRC 


















o 


ACSAVE 


06347 


R 


ACTIVE 


00520 


R 


APIFLG 


00052 


R 


BKNUM 


00110 


R 




BLKNUM 


00033 


R 


BLKSIZ 


000400 


A 


BLOCK 


00034 


R 


BREAK 


02025 


R 


o 


BREAK! 


02043 


R 


DRKAC 


06350 


R 


BUF 


02346 


R 


BUFBLK 


000010 


A 


•»w^ 


BUFGEN 


01772 


R 


BUFG.l 


01775 


R 


BUFSIZ 


004000 


A 


auF.i 


06351 


R 




BUF,2 


06352 


R 


BUF,3 


06353 


R 


CHKBLK 


01712 


R 


CHKFLG 


02216 


R 


o 


CHKSUM 


01676 


R 


CURHAN 


00032 


R 


OCTAPl 


01005 


R 


OECWC 


00035 


R 




DELHAN 


02242 


R 


DELTA 


00066 


R 


DEL,! 


06354 


H 


DINIT 


00530 


R 




DINI,2 


00630 


R 


DINI,3 


00753 


R 


DIN, I 


06356 


R 


DIN, 2 


06356 


R 


o 


DIN, 3 


06357 


R 


DIN. 4 


06360 


R 


DISTSW 


00043 


R 


DONE 


06361 


R 




DSERV 


01013 


R 


DSER.l 


01054 


R 


USER, 2 


01043 


K 


0S£R,3 


01150 


R 




DSER.4 


01030 


R 


DSER,6 


01063 


R 


DSER,6 


01131 


R 


0SER.7 


01072 


R 


o 
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